home *** CD-ROM | disk | FTP | other *** search
/ Interplay's Learn to Program Basic (Review Copy) / Learn to Program Basic Review Copy (Interplay)(June 23, 1998).ISO / pc / ltpbasic / refxmpl / endif.bas < prev    next >
BASIC Source File  |  1998-04-07  |  267b  |  17 lines
  1. CLS
  2. Print "Would you like to see a demo?";
  3. Input answer$
  4. Let A$ = Left$(answer$,1)
  5. If A$ = "y" then
  6. For I = 1 to 100
  7. Let X = Random(100,150)
  8. Let Y = Random(100,150)
  9. Let Radius = Random(5,30)
  10. Let Hue = Random(10,200)
  11. Color hue
  12. Fillcircle X,Y,Radius
  13. Next I
  14. Endif
  15. End
  16.